home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 65.zip
/
BS1 part 65
/
Art Department Pro 2.15 d3.adf
/
Install-Patches
< prev
next >
Wrap
Text File
|
1992-05-12
|
12KB
|
425 lines
; This will do patches for ADPro 2.1.5
; This procedure will patch a file
; requires initialization of variables:
; patch_type
; patch_thisfile
; patch_dir
; patch_curnum
; patch_maxnum
; patch_cksum_0
; patch_cksum_1
; patch_cksum_2
; patch_cksum_3
(procedure patch_file
(if (= 1 (exists (tackon patch_dir patch_thisfile)))
(
(working ("Updating your %s %s...\n\nPlease read the ReadMe file on the ADPro Disk #1 after completing installation." patch_thisfile patch_type))
(set fsum (getsum (tackon patch_dir patch_thisfile)))
(while (< patch_curnum patch_maxnum)
(
(set tsum (select patch_curnum patch_cksum_0 patch_cksum_1 patch_cksum_2 patch_cksum_3 patch_cksum_4 patch_cksum_5 0))
(if (= tsum fsum)
(
(run ("RAM:lz -N -wRam: x ADPRO2.D3:%s_Patches.lzh %s.%ld.PCH RAM:" patch_type patch_thisfile patch_curnum))
(set rline (cat "RAM:lpatch " ("-o%s " (tackon "RAM:" patch_thisfile)) ("-p%s.%ld.PCH \"%s\"" (tackon "RAM:" patch_thisfile) patch_curnum (tackon patch_dir patch_thisfile))))
(if (= 0 (run rline))
(
(protect (tackon patch_dir patch_thisfile) "+rwed")
(copyfiles
(prompt "")
(help "")
(source (tackon "RAM:" patch_thisfile))
(dest patch_dir)
)
(delete (tackon "RAM:" patch_thisfile))
(delete ("RAM:%s.%ld.PCH" patch_thisfile patch_curnum))
(set patch_curnum (+ patch_maxnum 1))
)
)
)
)
)
(set patch_curnum (+ patch_curnum 1))
)
(if
(= patch_curnum patch_maxnum)
(message
("The attempt to patch the %s %s failed.\n\n" patch_thisfile patch_type)
"This may have happened because the file has already been patched "
"or the file is corrupted. Please install the module(s) again and retry the patch."
)
)
)
(
(message
("The %s %s " patch_thisfile patch_type)
("did not exist in your %ss2 directory.\n\n" patch_type)
"Please install the module again and retry this patch."
)
)
)
)
(set @default-dest
(askdir
(prompt "Please select directory into which you have installed ADPro.")
(help
"You must select the directory into which Art Department Professional was installed.\n\n"
@askdir-help
)
(default "SYS:ADPro")
)
)
(set loaddir (tackon @default-dest "Loaders2"))
(if
(= (exists loaddir) 0)
(abort "Loaders2 Directory Does Not Exist.")
)
(set savedir (tackon @default-dest "Savers2"))
(if
(= (exists savedir) 0)
(abort "Savers2 Directory Does Not Exist.")
)
(copylib
(prompt "Copying arp.library to LIBS:")
(help
"This library is required to install ADPro. If you already have a copy of "
"this library, the library included in this install is an update to the "
"library you currently have installed.\n\n"
@copylib-help
)
(source "ADPRO2.D3:libs/arp.library")
(dest "LIBS:")
(confirm)
)
(copyfiles
(prompt "" )
(help "")
(source "ADPRO2.D3:C/lpatch")
(dest "RAM:")
)
(if
(= 0 (exists "RAM:lpatch"))
(abort "Unable to copy necessary files to Ram Disk."
" Please make sure you have at least 100K of memory"
" available before installing."
)
)
(copyfiles
(prompt "" )
(help "")
(source "ADPRO2.D3:C/lz")
(dest "RAM:")
)
(if
(= 0 (exists "RAM:lz"))
(abort "Unable to copy necessary files to Ram Disk."
" Please make sure you have at least 100K of memory"
" available before installing."
)
)
(set ptodo
(askoptions
(prompt "Select previously installed expansion modules to patch?")
(help
"In addition to the basic ADPro system, ASDG offers several expansion "
"modules giving you added capabilities. These expansion modules include "
"scanner controllers, film recorder controllers, and the ability to read and "
"write additional file formats. "
"\n\n"
"If you are upgrading from ADPro 1.0.3 or earlier, you might already own some "
"of our expansion modules. If so, read on. "
"\n\n"
"If you don't own any of the expansion modules now, you can skip this "
"step but before you do so, please read the following paragraphs. "
"\n\n"
"If ADPro 2.1 is your first version of ADPro, or you don't own any "
"expansion modules now, it is possible that when you purchase expansion "
"modules in the future, you may get an older version. If this happens, "
"ADPro 2.1 will alert you with a message when you try to execute an "
"expansion module designed for a previous version of ADPro. "
"\n\n"
"If you find that you have purchased an older expansion module, you can "
"re-execute this installation program and select only this step to apply the "
"patches contained here. "
"\n\n"
"If you don't need to perform any of the patches at this time, you can stop "
"reading now. "
"\n\n"
"The modules which this sequence can patch include: JXSCAN, JX100, ES300C, "
"PHOVOS300C, SV6510, CI3000, and the Professional Conversion Pack (Targa, "
"Tiff, and Rendition). "
"\n\n"
"To have these patches work, the modules to be patched must be installed in "
"their proper places in the directory in which you just installed ADPro 2.1. "
"This may mean that you have to re-install your expansion modules where you "
"just installed ADPro 2.1. If so, exit this sequence for now, re-install "
"the expansion modules, execute this sequence again and select only "
"this last step. "
"\n\n"
"If the expansion modules to be patched are already located in the Loaders2 "
"and Savers2 directory where you just installed ADPro 2.1, then you may proceed "
"with the sequence. "
"\n\n"
"If you have additional difficulties or questions, call ASDG at (608) 273 "
"6585 and have your ADPro serial number ready. "
)
(choices
"Pro Conversion Pack"
"JX100"
"JXSCAN"
"EPSON_ES300C"
"PHOVOS_300C"
"CI3000"
"SV6510"
)
(default 1)
)
)
(if (= ptodo 0)
(abort "You didn't select anything, so there's nothing to do.")
)
; this patches optional loaders
(set patch_cksum_0 0)
(set patch_cksum_1 0)
(set patch_cksum_2 0)
(set patch_cksum_3 0)
(set patch_cksum_4 0)
(set patch_cksum_5 0)
(set @execute-dir "RAM:")
(if (IN ptodo 0)
(
; patching RENDITION Loader
(set patch_thisfile "RENDITION")
(set patch_dir loaddir)
(set patch_type "Loader")
(set patch_curnum 0)
(set patch_maxnum 3)
(set patch_cksum_0 -784668211)
(set patch_cksum_1 1509760538)
(set patch_cksum_2 -1088099858)
(patch_file)
;patching TARGA Loader
(set patch_thisfile "TARGA")
(set patch_dir loaddir)
(set patch_type "Loader")
(set patch_curnum 0)
(set patch_maxnum 6)
(set patch_cksum_0 1482780211)
(set patch_cksum_1 -483001049)
(set patch_cksum_2 244623600)
(set patch_cksum_3 -1058239812)
(set patch_cksum_4 -1058239812)
(set patch_cksum_5 828958717)
(patch_file)
;patching TIFF Loader
(set patch_thisfile "TIFF")
(set patch_dir loaddir)
(set patch_type "Loader")
(set patch_curnum 0)
(set patch_maxnum 4)
(set patch_cksum_0 859597812)
(set patch_cksum_1 819297291)
(set patch_cksum_2 1518344491)
(set patch_cksum_3 -1641822233)
(patch_file)
(working "Creating X Loader...\n\nPlease read the ReadMe file on the ADPro Disk #1 after completing installation.")
(run "RAM:lz -N -wRam: x ADPRO2.D3:Loader_Patches.lzh X.0.PCH RAM:")
(set rline ("RAM:lpatch -oRAM:X -pRAM:X.0.PCH \"%s\"" (tackon loaddir "RENDITION")))
(if (= 0 (run rline))
(
(copyfiles
(prompt "")
(help "")
(source "RAM:X")
(dest patch_dir)
)
(delete "RAM:X")
(delete "RAM:X.0.PCH")
)
)
(working "Creating SUNRASTER Loader...\n\nPlease read the ReadMe file on the ADPro Disk #1 after completing installation.")
(run "RAM:lz -N -wRam: x ADPRO2.D3:Loader_Patches.lzh SUNRASTER.0.PCH RAM:")
(set rline ("RAM:lpatch -oRAM:SUNRASTER -pRAM:SUNRASTER.0.PCH \"%s\"" (tackon loaddir "RENDITION")))
(if (= 0 (run rline))
(
(copyfiles
(prompt "")
(help "")
(source "RAM:SUNRASTER")
(dest patch_dir)
)
(delete "RAM:SUNRASTER")
(delete "RAM:SUNRASTER.0.PCH")
)
)
;patching RENDITION Saver
(set patch_thisfile "RENDITION")
(set patch_dir savedir)
(set patch_type "Saver")
(set patch_curnum 0)
(set patch_maxnum 3)
(set patch_cksum_0 -1958352664)
(set patch_cksum_1 1939121335)
(set patch_cksum_2 1418874756)
(patch_file)
;patching TARGA Saver
(set patch_thisfile "TARGA")
(set patch_dir savedir)
(set patch_type "Saver")
(set patch_curnum 0)
(set patch_maxnum 3)
(set patch_cksum_0 242601535)
(set patch_cksum_1 -2024131800)
(set patch_cksum_2 -1841823675)
(patch_file)
;patching TIFF Saver
(set patch_thisfile "TIFF")
(set patch_dir savedir)
(set patch_type "Saver")
(set patch_curnum 0)
(set patch_maxnum 4)
(set patch_cksum_0 1720074818)
(set patch_cksum_1 -1977315916)
(set patch_cksum_2 -1780612422)
(set patch_cksum_3 1124297027)
(patch_file)
(working "Creating X Saver...\n\nPlease read the ReadMe file on the ADPro Disk #1 after completing installation.")
(run "RAM:lz -N -wRam: x ADPRO2.D3:Saver_Patches.lzh X.0.PCH RAM:")
(set rline ("RAM:lpatch -oRAM:X -pRAM:X.0.PCH \"%s\"" (tackon savedir "RENDITION")))
(if (= 0 (run rline))
(
(copyfiles
(prompt "")
(help "")
(source "RAM:X")
(dest patch_dir)
)
(delete "RAM:X")
(delete "RAM:X.0.PCH")
)
)
(working "Creating SUNRASTER Saver...\n\nPlease read the ReadMe file on the ADPro Disk #1 after completing installation.")
(run "RAM:lz -N -wRam: x ADPRO2.D3:Saver_Patches.lzh SUNRASTER.0.PCH RAM:")
(set rline ("RAM:lpatch -oRAM:SUNRASTER -pRAM:SUNRASTER.0.PCH \"%s\"" (tackon savedir "RENDITION")))
(if (= 0 (run rline))
(
(copyfiles
(prompt "")
(help "")
(source "RAM:SUNRASTER")
(dest patch_dir)
)
(delete "RAM:SUNRASTER")
(delete "RAM:SUNRASTER.0.PCH")
)
)
)
)
(if (IN ptodo 1)
(
; patching JX100 Loader
(set patch_thisfile "JX100")
(set patch_dir loaddir)
(set patch_type "Loader")
(set patch_curnum 0)
(set patch_maxnum 4)
(set patch_cksum_0 -774386942)
(set patch_cksum_1 -1457757454)
(set patch_cksum_2 1395406761)
(set patch_cksum_3 -648704505)
(patch_file)
)
)
(if (IN ptodo 2)
(
; patching JXSCAN Loader
(set patch_thisfile "JXSCAN")
(set patch_dir loaddir)
(set patch_type "Loader")
(set patch_curnum 0)
(set patch_maxnum 3)
(set patch_cksum_0 919621839)
(set patch_cksum_1 1052076838)
(set patch_cksum_2 1434661152)
(patch_file)
)
)
(if (IN ptodo 3)
(
; patching EPSON_ES300C Loader
(set patch_thisfile "EPSON_ES300C")
(set patch_dir loaddir)
(set patch_type "Loader")
(set patch_curnum 0)
(set patch_maxnum 3)
(set patch_cksum_0 539717622)
(set patch_cksum_1 477972192)
(set patch_cksum_2 -1329441256)
(patch_file)
)
)
(if (IN ptodo 4)
(
; patching PHOVOS_300C Loader
(set patch_thisfile "PHOVOS_300C")
(set patch_dir loaddir)
(set patch_type "Loader")
(set patch_curnum 0)
(set patch_maxnum 3)
(set patch_cksum_0 2114945872)
(set patch_cksum_1 -2119905465)
(set patch_cksum_2 1503818038)
(patch_file)
)
)
(if (IN ptodo 5)
(
; patching CI3000 Saver
(set patch_thisfile "CI3000")
(set patch_dir savedir)
(set patch_type "Saver")
(set patch_curnum 0)
(set patch_maxnum 3)
(set patch_cksum_0 -352502906)
(set patch_cksum_1 -1846595266)
(set patch_cksum_2 -1212497233)
(patch_file)
)
)
(if (IN ptodo 6)
(
; patching SV6510 Saver
(set patch_thisfile "SV6510")
(set patch_dir savedir)
(set patch_type "Saver")
(set patch_curnum 0)
(set patch_maxnum 2)
(set patch_cksum_0 1138320904)
(set patch_cksum_1 -776414085)
(patch_file)
)
)
(if (= 1 (exists "RAM:lpatch"))
(delete "RAM:lpatch")
)
(if (= 1 (exists "RAM:lz"))
(delete "RAM:lz")
)